63980 REM DELETE 64 BY RICHARD DE A'MORELLI
63981 POKE53281,1:POKE53280,6:B=820:H=256:PRINT"[147]";
63982 INPUT"ERASE FROM LINE# ";F:INPUT"        TO LINE# ";T
63983 INPUT"INCREMENT (1-255)";I:IFI<1ORI>H-1ORF<1ORF>63980ORF>TTHEN63991
63984 PRINT"[147] ^ERASING":POKEB+4,I
63985 POKEB,F/H:POKEB+1,F-PEEK(B)*H:POKEB+2,T/H:POKEB+3,T-PEEK(B+2)*H
63986 H=256:B=820:D=PEEK(B)*H+PEEK(B+1)
63987 PRINT""D"":IFD=>PEEK(B+2)*H+PEEK(B+3)THEN63991
63988 L=PEEK(B+1)+PEEK(B+4):IFL>H-1THENPOKEB,PEEK(B)+1:L=L-H
63989 POKEB+1,L
63990 PRINT"GOTO63986":POKE631,19:FORX=0TO2:POKE632+X,13:NEXT:POKE198,4:END
63991 PRINT"[147]DELETE 64 FINISHED!":FORJ=BTOB+4:POKEJ,0:NEXT:END